home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / tdbs1 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  20KB  |  529 lines
  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. FOR i=1 TO 5
  16. MENU i,0,1,""
  17. NEXT
  18. MENU ON
  19. FOR i=0 TO 27
  20. PALETTE i,0,0,0
  21. NEXT
  22. OPEN "I",#1,"Held"
  23. WHILE NOT EOF(1)
  24. INPUT #1,spieler$,geld,punkte,mut,waffe$
  25. INPUT #1,kleidung$,geschick,parade,attacke 
  26. INPUT #1,charisma,intelligenz,kraft,lebensenergie 
  27. WEND
  28. CLOSE #1
  29. tp=5
  30. start:
  31. CALL freesprite (0) 
  32. COLOR 2
  33. 1 CLS:LOCATE 3,3
  34. schr$="Du stehst mitten im Urwald. Es ist sehr schwuel und heiss":sp(schr$):LOCATE 5,3
  35. schr$="hier. Vor Dir baut sich eine Art Wand aus riesiegen Urwald":sp(schr$):LOCATE 7,3
  36. schr$="pflanzen auf. Der Weg, auf dem Du dich befindest teilt sich":sp(schr$):LOCATE 9,3
  37. schr$="vor Dir in die Richtungen Nordosten und Suedosten.":sp(schr$):LOCATE 12,3:COLOR 3
  38. schr$="Wenn Du nach Nordosten willst druecke < F1 >":sp(schr$):LOCATE 14,3
  39. schr$="Bevorzugst Du den Pfad nach Suedosten druecke < F2 >":sp(schr$):COLOR 2
  40. PALETTE 5,0.93,0.2,0
  41. PALETTE 6,0.4,0.6,1
  42. PALETTE 7,0.8,0.4,0.33
  43. PALETTE 2,1,0.87,0.73
  44. PALETTE 3,1,1,0.13
  45. WHILE 1
  46. getkey x
  47. IF x=1 THEN 2
  48. IF x=2 THEN 3
  49. IF x=11 THEN GOSUB dokument:GOTO 1
  50. WEND
  51.   
  52. 2 CLS:LOCATE 3,3
  53. schr$="Der Pfad wechselt staendig seine Richtung, eine richtige":sp(schr$):LOCATE 5,3
  54. schr$="Orientierung ist kaum mehr moeglich. An manchen Stellen ist":sp(schr$):LOCATE 7,3
  55. schr$="der Boden sehr morastig.":sp(schr$):LOCATE 10,3:COLOR 3
  56. schr$="Nun stellt sich die Frage:":sp(schr$):LOCATE 12,3
  57. schr$="Willst Du in noerdliche Richtung < F1 >":sp(schr$):LOCATE 14,3
  58. schr$="Es geht auch nach Suedwesten < F2 >":sp(schr$):LOCATE 16,3
  59. schr$="Ein dritter Pfad fuehrt nach Osten < F3 >":sp(schr$):LOCATE 18,3:COLOR 2
  60. WHILE 1
  61. getkey x
  62. IF x=1 THEN 4
  63. IF x=2 THEN 1
  64. IF x=3 THEN 5
  65. IF x=11 THEN GOSUB dokument:GOTO 2
  66. WEND
  67.  
  68. 3 CLS:LOCATE 3,3
  69. schr$="Du befindest Dich tief im Dschungel. Erschoepft laesst Du":sp(schr$):LOCATE 5,3
  70. schr$="dich nieder und isst einige bananenaehnliche Fruechte, die":sp(schr$):LOCATE 7,3
  71. schr$="hier reichlich wachsen. Drei Wege fuehren von hier fort:":sp(schr$):LOCATE 10,3:COLOR 3
  72. schr$="Es geht nach Norden < F1 >":sp(schr$):LOCATE 12,3
  73. schr$="Ein Pfad fuehrt auch nach Osten < F2 >":sp(schr$):LOCATE 14,3
  74. schr$="Die dritte Moeglichkeit waere nach Nordwesten < F3 >":sp(schr$):COLOR 2                                            
  75. WHILE 1
  76. getkey x
  77. IF x=1 THEN 2
  78. IF x=2 THEN 7
  79. IF x=3 THEN 1
  80. IF x=11 THEN GOSUB dokument:GOTO 3
  81. WEND
  82.                                             
  83. 4 CLS:LOCATE 3,3
  84. schr$="In dem Pflanzengewirr ist es schwierig, vorwaertszukommen.":sp(schr$):LOCATE 5,3
  85. schr$="Einmal hatest Du den Eindruck, einen anderen Pfad zu kreuzen":sp(schr$):LOCATE 7,3
  86. schr$=" - aber wer weiss schon, was im Urwald Wege und was zu-":sp(schr$):LOCATE 9,3
  87. schr$="faellige Lichtungen sind.":sp(schr$):SLEEP:SLEEP:SLEEP
  88. GOTO 6
  89.  
  90. 5 CLS:LOCATE 3,3
  91. schr$="Der Pfad, auf dem Du dich bewegst, wird immer feuchter.":sp(schr$):LOCATE 5,3
  92. schr$="Bei jeden Schritt hinterlaesst Du kleine Kuhlen im feuchten":sp(schr$):LOCATE 7,3
  93. schr$="Untergrund, die sich schnell mit Wasser fuellen. Du kommst":sp(schr$):LOCATE 9,3
  94. schr$="auf eine Lichtung, wo ein kleiner Bach dem Boden entspringt.":sp(schr$):LOCATE 11,3
  95. schr$="Das Wasser fliesst den Pfad entlang und versickert langsam":sp(schr$):LOCATE 13,3
  96. schr$="wieder im Boden.":sp(schr$):LOCATE 16,3:COLOR 3
  97. schr$="Du kannst das Wasser trinken, < F1 >":sp(schr$):LOCATE 18,3
  98. schr$="oder den Pfad wieder zurueckgehen < F2 >":sp(schr$):COLOR 2
  99. WHILE 1
  100. getkey x
  101. IF x=1 THEN 100
  102. IF x=2 THEN 2
  103. IF x=11 THEN GOSUB dokument:GOTO 5
  104. WEND
  105.  
  106. 6 CLS:LOCATE 3,3
  107. schr$="Hier erscheint Dir der Dschungel besonders dicht. Bei":sp(schr$):LOCATE 5,3
  108. schr$="jedem Meter musst Du deine Waffe zur Hilfe nehmen. Er-":sp(schr$):LOCATE 7,3
  109. schr$="oepft legst Du eine Pause ein. Du kaust auf den Stengeln":sp(schr$):LOCATE 9,3
  110. schr$="der Biriban-Pflanze, die hier reichlich waechst. Die schmeckt":sp(schr$):LOCATE 11,3
  111. schr$="zwar nicht gut, aber kraeftig sehr.":sp(schr$):LOCATE 14,3:COLOR 3
  112. schr$="Du kannst nach Osten, < F1 > ":sp(schr$):LOCATE 16,3
  113. schr$="Ein Weg fuehrt auch nach Westen < F2 >":sp(schr$):LOCATE 18,3
  114. schr$="Oder Du gehst nach Sueden < F3 >":sp(schr$):COLOR 2
  115. IF leb=0 THEN lebensenergie=lebensenergie+1:leb=1
  116. WHILE 1
  117. getkey x
  118. IF x=1 THEN 8
  119. IF x=2 THEN 9
  120. IF x=3 THEN 2
  121. IF x=11 THEN GOSUB dokument:GOTO 6
  122. WEND
  123.  
  124. 7 CLS:LOCATE 3,3
  125. schr$="Als Du dem Pfad noch ein Stueck gefolgt bist, stoppte":sp(schr$):LOCATE 5,3
  126. schr$="dieser jedoch vor einem ca. 3 Meter breitem Bach. Dieser":sp(schr$):LOCATE 7,3
  127. schr$="ist anders als andere Baeche: Er stinkt abscheulich und ":sp(schr$):LOCATE 9,3
  128. schr$="brodelt, als ob er kochen wuerde.":sp(schr$):LOCATE 12,3:COLOR 3
  129. schr$="Du kannst versuchen ihn zu ueberqueren < F1 >":sp(schr$):LOCATE 14,3
  130. schr$="Du kannst aber auch den gekommenen Pfad zurueckgehen < F2 >":sp(schr$):COLOR 2
  131. WHILE 1
  132. getkey x
  133. IF x=1 THEN 10
  134. IF x=2 THEN 3
  135. IF x=11 THEN GOSUB dokument:GOTO 7
  136. WEND
  137.  
  138. 8 CLS:LOCATE 3,3
  139. schr$="Du betrittst eine Lichtung, diese wird von einem Bach":sp(schr$):LOCATE 5,3
  140. schr$="durchschnitten. Dieser Bach stinkt ganz erbehrmlich und":sp(schr$):LOCATE 7,3
  141. schr$="man koennte denken, dass er auch kocht, denn ueberall ":sp(schr$):LOCATE 9,3
  142. schr$="steigen kleine blaeschen auf.":sp(schr$):LOCATE 12,3:COLOR 3
  143. schr$="Du kannst versuchen den Bach zu ueberqueren < F1 >":sp(schr$):LOCATE 14,3
  144. schr$="Oder den Pfad zurueckgehen < F2 >":sp(schr$):COLOR 2
  145. WHILE 1
  146. getkey x
  147. IF x=1 THEN 10
  148. IF x=2 THEN 6
  149. IF x=11 THEN GOSUB dokument:GOTO 8
  150. WEND
  151.  
  152. 9 CLS:LOCATE 3,2
  153. IF ge=1 THEN 250
  154. schr$="Der Pfad, auf dem Du dich befindest, ist kaum mehr begehbar.":sp(schr$):LOCATE 5,2
  155. schr$="Fast staendig musst Du die Richtung wechseln und deine Waffe":sp(schr$):LOCATE 7,2
  156. schr$="zur Hilfe nehmen. Der Pfad windet sich um maechtige Baeume ":sp(schr$):LOCATE 9,2
  157. schr$="herum durch den Dschungel. Ein gefleckter Sumpf-Parder starrt":sp(schr$):LOCATE 11,2
  158. schr$="Dich aus dem Dikicht an. Seine Nackenharre sind gestraeubt,und":sp(schr$):LOCATE 13,2
  159. schr$="wieder stoesst er ein bedrohliches Knurren aus.":sp(schr$):LOCATE 16,2:COLOR 3
  160. schr$="Du kannst versuchen zu fliehen < F1 >":sp(schr$):LOCATE 18,2
  161. schr$="Du kannst auch die Bestie angreifen < F2 >":sp(schr$):LOCATE 20,2
  162. schr$="Als drittes kannst Du beruhigend auf die Bestie einreden < F3 >":sp(schr$):COLOR 2
  163. WHILE 1
  164. getkey x
  165. IF x=1 THEN 118
  166. IF x=2 THEN 207
  167. IF x=3 THEN 40
  168. IF x=11 THEN GOSUB dokument:GOTO 9
  169. WEND
  170.  
  171. 10 CLS:LOCATE 3,3:COLOR 3
  172. schr$="Du kannst versuchen ueber den Bach zu springen < F1 >":sp(schr$):LOCATE 5,3
  173. schr$="Oder dich an einer Liane hinueberschwingen < F2 >":sp(schr$):LOCATE 7,3
  174. schr$="Du kannst auch durchwaten < F3 >":sp(schr$):LOCATE 10,3:COLOR 2
  175. schr$="Natuerlich gibt es noch viele andere Moeglichkeiten, die":sp(schr$):LOCATE 12,3
  176. schr$="aber wegen Deiner Zeitknappheit nicht in Frage kommen.":sp(schr$)
  177. WHILE 1
  178. getkey x
  179. IF x=1 THEN 101
  180. IF x=2 THEN 102
  181. IF x=3 THEN 103
  182. IF x=11 THEN GOSUB dokument:GOTO 10
  183. WEND
  184.    
  185. 11 CLS:LOCATE 3,3
  186. schr$="Du hast also mehr oder minder wohlbehalten das andere Ufer":sp(schr$):LOCATE 5,3
  187. schr$="erreicht. Das war gar nicht schlecht!":sp(schr$) 
  188. SLEEP:SLEEP:SLEEP
  189. GOTO 12
  190.  
  191. 12 CLS:LOCATE 3,3
  192. schr$="Nach laengerer Wegstrecke errechst Du eine Lichtung":sp(schr$):LOCATE 5,3
  193. schr$="Von ihr gehen zwei Wege ab. Du kannst den Pfad nach":sp(schr$):LOCATE 7,3
  194. schr$="Norden, oder den nach Osten nehmen":sp(schr$):COLOR 3:LOCATE 10,3
  195. schr$="Du entscheidest Dich fuer Norden < F1 >":sp(schr$):LOCATE 12,3
  196. schr$="Du bevorzugst doch lieber den nach Osten < F2 >":sp(schr$):COLOR 2
  197. WHILE 1
  198. getkey x
  199. IF x=1 THEN 13
  200. IF x=2 THEN 14
  201. IF x=11 THEN GOSUB dokument:GOTO 12
  202. WEND
  203.  
  204. 13 CLS:LOCATE 3,3
  205. schr$="Das Vorwaertskommen im Dschungel wird immer muehsamer;":sp(schr$):LOCATE 5,3
  206. schr$="dichtes Dornengestruepp macht Dir zu schaffen. Schlies-":sp(schr$): LOCATE 7,3
  207. schr$="slich erreichst Du eine Felswand am noerdlichen Rand der":sp(schr$):LOCATE 9,3
  208. schr$="Schluch.":sp(schr$):COLOR 3:LOCATE 13,3
  209. schr$="Du kannst versuchen die Felswand hochzuklettern < F1 >":sp(schr$):LOCATE 15,3
  210. schr$="Du kannst auch zurueckgehen < F2 >":sp(schr$):COLOR 2
  211. WHILE 1
  212. getkey x
  213. IF x=1 THEN 98
  214. IF x=2 THEN 12
  215. IF x=11 THEN GOSUB dokument:GOTO 13
  216. WEND
  217.  
  218. 14 CLS:LOCATE 3,3
  219. schr$="Du folgst dem Weg eine Zeit lang, bis er sich wieder teilt":sp(schr$):LOCATE 5,3
  220. schr$="Der Weg geht nun nach Osten, Sueden und nach Westen.":sp(schr$):LOCATE 7,3
  221. schr$="Nun liegt es an Dir fuer welchen Pfad Du dich entscheidest:":sp(schr$):LOCATE 9,3:COLOR 3
  222. schr$="Willst Du nach Osten < F1 >":sp(schr$):LOCATE 12,3
  223. schr$="Gehst Du lieber nach Sueden < F2 >":sp(schr$):LOCATE 14,3
  224. schr$="Wenn Du nach Westen willst druecke < F3 >":sp(schr$):COLOR 2
  225. WHILE 1
  226. getkey x
  227. IF x=1 THEN 16
  228. IF x=2 THEN 15
  229. IF x=3 THEN 12
  230. IF x=11 THEN GOSUB dokument:GOTO 14
  231. WEND
  232.  
  233. 15 CLS:LOCATE 3,3
  234. schr$="Du irrst lange durch den Urwald, vobei an umgestuerzten":sp(schr$):LOCATE 5,3
  235. schr$="Bauemen und grossen Farnen. Doch nach einiger Zeit, wird":sp(schr$):LOCATE 7,3
  236. schr$="der Urwald immer lichter. Du kommst an eine Burg. Sie ist":sp(schr$):LOCATE 9,3
  237. schr$="gross und sehr alt. Die Mauern sind hoch, ein Graben schuetzt":sp(schr$):LOCATE 11,3
  238. schr$="die Bewohner vor Ueberfallen! Bewohner? - Die Burg sieht sehr":sp(schr$):LOCATE 13,3
  239. schr$="verlassen aus.":sp(schr$):COLOR 3:LOCATE 16,3
  240. schr$="Du kannst Sie Dir ja mal genauer anschauen < F1 >":sp(schr$):LOCATE 18,3
  241. schr$="Oder Du kannst wieder in den Dschungel gehen < F2 >":sp(schr$):COLOR 2
  242. WHILE 1 
  243. getkey x
  244. IF x=1 THEN 20
  245. IF x=2 THEN 14
  246. IF x=11 THEN GOSUB dokument:GOTO 15
  247. WEND
  248.  
  249. 16 CLS:LOCATE 3,3
  250. schr$="Der Boden hier wird steinig und vor Dir ragt eine steile":sp(schr$):LOCATE 5,3
  251. schr$="Felswand in die Hoehe.":sp(schr$):LOCATE 8,3:COLOR 3
  252. schr$="Du kannst versuchen die Felswand zu erklimmen < F1 >":sp(schr$):LOCATE 10,3
  253. schr$="Du kannst auch zurueckgehen < F2 >":sp(schr$):COLOR 2
  254. WHILE 1
  255. getkey x
  256. IF x=1 THEN 22
  257. IF x=2 THEN 14
  258. IF x=11 THEN GOSUB dokument:GOTO 16
  259. WEND
  260.  
  261. 20 CLS
  262.  OPEN "Held" FOR OUTPUT AS #1
  263.  WRITE #1,spieler$,geld,punkte,mut,waffe$
  264.  WRITE #1,kleidung$,geschick,parade,attacke 
  265.  WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp 
  266.  CLOSE #1                                          
  267.  LOAD "TDBS2",r
  268.  
  269. 22 CLS:LOCATE 3,3
  270. schr$="Nach dem Du ein Stueck hochgeklettert bist, entdeckst Du":sp(schr$):LOCATE 5,3
  271. schr$="einen Hoehleneingang. Du bist selbstsicher und folgst dem":sp(schr$):LOCATE 7,3
  272. schr$="Gang der sich Tief in den Berg bohrt..":sp(schr$)
  273.  OPEN "Held" FOR OUTPUT AS #1
  274.  WRITE #1,spieler$,geld,punkte,mut,waffe$
  275.  WRITE #1,kleidung$,geschick,parade,attacke 
  276.  WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp 
  277.  CLOSE #1
  278.  LOAD "TDBS3",r
  279.  
  280. 40 CLS:LOCATE 3,3
  281. schr$="Du sagst also ` Ist ja gut, Miez, Miez ' - und tatsaech-":sp(schr$):LOCATE 5,3
  282. schr$="lich, der Sumpf-Pader beruhigt sich, das Knurren hoert ":sp(schr$):LOCATE 7,3
  283. schr$="auf.":sp(schr$):LOCATE 10,3:COLOR 3
  284. schr$="Vielleicht willst Du ihn jetzt streicheln < F1 >":sp(schr$):LOCATE 12,3
  285. schr$="Oder Du entfernst Dich ohne grosse Hast < F2 >":sp(schr$):COLOR 2
  286. WHILE 1
  287. getkey x
  288. IF x=1 THEN GOTO 116
  289. IF x=2 THEN ge=1:GOTO 6
  290. IF x=11 THEN GOSUB dokument:GOTO 40
  291. WEND
  292.  
  293. 73 
  294. raum=1:monsterlebensenergie=25:monsterattacke=13:monsterparade=5
  295. monstertrefferpunkte=3:monstername$="Sumpf-Parder":monsterpunkte=12
  296. GOSUB kampf:GOTO 6
  297.    
  298. 93 CLS:LOCATE 3,3
  299. schr$="Das Unglueck ist passiert! Du stuerzt in die Verderbnis-":sp(schr$):LOCATE 5,3
  300. schr$="bruehe! Natuerlich passt Du auf, dass Dein Kopf nicht in":sp(schr$):LOCATE 7,3
  301. schr$="die Fluessigkeit eintaucht. Schnell retest Du dich zum ":sp(schr$):LOCATE 9,3
  302. schr$="Ufer. Du schuettelst Dich - und dann spuerst Du es: Deine":sp(schr$):LOCATE 11,3
  303. schr$="Haende fangen an zu jucken, die Haut ist start geroetet,":sp(schr$):LOCATE 13,3
  304. schr$="kleine Blaeschen bilden sich auf den Innenseiten der Haende.":sp(schr$):LOCATE 15,3
  305. schr$="Der Juckreiz ist unertraeglich. Gluecklicherweise ist Deine":sp(schr$):LOCATE 17,3
  306. schr$="Kleidung von guter Qualitaet, dass sie den Kontakt mit der":sp(schr$):LOCATE 19,3
  307. schr$="Giftbruehe gut ueberstanden hat.":sp(schr$):lebensenergie=lebensenergie-3:charisma=charisma-2
  308. SLEEP:SLEEP
  309. WHILE a$=""
  310. a$=INKEY$
  311. WEND
  312. GOTO 11
  313.  
  314. 98 CLS:LOCATE 3,3
  315. schr$="Das klappt ja ganz prima! Du entwickelst dich noch zu einem":sp(schr$):LOCATE 5,3
  316. schr$="richtigen Bergsteigen. Aber in ungefaehr 70 Meter Hoehe geht":sp(schr$):LOCATE 7,3
  317. schr$="es nicht mehr weiter. Keine Vorspruenge und Spalten koennten":sp(schr$):LOCATE 9,3
  318. schr$="Dir halt geben. Voellig glatt ragt die Felswand senkrecht in":sp(schr$):LOCATE 11,3
  319. schr$="die Hoehe. Unter Dir breitet sich das eindrucksvolle Gruen":sp(schr$):LOCATE 13,3
  320. schr$="des Dschungels aus. Tja leider hilft alles nichts. Du musst":sp(schr$):LOCATE 15,3
  321. schr$="den Abstieg wieder wagen.":sp(schr$)
  322. SLEEP:SLEEP:SLEEP:GOTO 12
  323.  
  324.  100 IF ka=0 THEN 105:ka=1
  325. IF ka=1 THEN 106
  326.  
  327. 105 
  328. CLS:LOCATE 3,3
  329. schr$="Als Du dich hinunterbeuckst um etwas von dem Wasser zu ":sp(schr$):LOCATE 5,3
  330. schr$="trinken naehrt sich Dir von hinten ein wilder Kerl. Es han-":sp(schr$):LOCATE 7,3
  331. schr$="delt sich hierbei um den Abenteurer Trofoff, der in der":sp(schr$):LOCATE 9,3
  332. schr$="Dschungelhoelle den Verstand verloren hat. Das Weiss in":sp(schr$):LOCATE 11,3
  333. schr$="seinem Auge tritt richtig heraus. Er ist voellig verludert":sp(schr$):LOCATE 13,3
  334. schr$="und verzottelt. Trofoff schwingt eine maechtige Keule und":sp(schr$):LOCATE 15,3
  335. schr$="Du hast gerade noch Zeit aufzuspringen. Es kommt zu einem":sp(schr$):LOCATE 17,3
  336. schr$="Kampf.":sp(schr$)
  337. raum=2:monsterlebensenergie=20:monsterattacke=12:monsterparade=6
  338. monsterpunkte=10:monstername$="Trofoff"
  339. monstertrefferpunkte=4
  340. SLEEP:SLEEP:SLEEP
  341. GOSUB kampf:GOTO 5
  342.  
  343. 101 CLS:LOCATE 3,3
  344. x=INT(RND*(20+1))+2
  345. schr$="Du wirst verstehen, dass es nicht so ohne weiteres klappen":sp(schr$):LOCATE 5,3
  346. schr$="wird, das Du so ueber den Verderbnisbach springst.":sp(schr$):LOCATE 7,3
  347. schr$="Na ja, wir werden ja sehen ob Du genug Kraft hast um deinen":sp(schr$):LOCATE 9,3
  348. schr$="Astralkoerper weit genug fliegen zu lassen":sp(schr$):SLEEP:SLEEP
  349. IF x>=geschick THEN 93
  350. IF x<=geschick THEN 11
  351.  
  352. 102 CLS:LOCATE 3,3
  353. x=INT(RND*(20+1))+2
  354. schr$="In einer fernen Welt, die Erde genannt wird, gibt es jemanden":sp(schr$):LOCATE 5,3
  355. schr$="der diese Technik perfekt beherrscht. Dort wird dieser Mann":sp(schr$):LOCATE 7,3
  356. schr$="`Tarzan' genannt. Ob Du nun auch so Geschickt bist um Dich":sp(schr$):LOCATE 9,3
  357. schr$="an so einer Liane ueber den Verderbnisbach zu schwingen wirst":sp(schr$):LOCATE 11,3
  358. schr$="Du gleich merken!":sp(schr$)
  359. SLEEP:SLEEP:SLEEP
  360. IF x>=geschick THEN 93
  361. IF x<=geschick THEN 11
  362.  
  363. 103 CLS:LOCATE 3,3
  364. x=INT(RND*(20+1))+2
  365. schr$="Ich finde das sehr mutig - oder vielleicht besser; ":sp(schr$):LOCATE 5,3
  366. schr$="leichtsinnig - von Dir, freiwillig in diese Verderbnis-":sp(schr$):LOCATE 7,3
  367. schr$="bruehe zu steigen. Vorsichtig tastet Du dich ueber den":sp(schr$):LOCATE 9,3
  368. schr$="grund, als Du ploetzlich auf etwas sehr Glitschigem -":sp(schr$):LOCATE 11,3
  369. schr$="moeglicherweise einem toten Fisch - ausrutscht.":sp(schr$):SLEEP:SLEEP
  370. IF x>=geschick THEN 93
  371. IF x<=geschick THEN 184
  372.     
  373. 106 CLS:LOCATE 3,3
  374. schr$="Du trinkst also das Wasser und spuerst wie neue Lebens-":sp(schr$):LOCATE 5,3
  375. schr$="energie deinen Koerper durchstroemt. Es ist einfach Wund-":sp(schr$):LOCATE 7,3
  376. schr$="erbar zu fuehlen wie man wieder zu Kraeften kommt":sp(schr$)
  377. IF lee=0 THEN lebensenergie=lebensenergie+3:lee=1
  378. SLEEP:SLEEP:SLEEP:GOTO 5
  379.  
  380. 116 CLS:LOCATE 3,3
  381. schr$="Man kann es aber auch wirklich uebertreiben! Bis auf":sp(schr$):LOCATE 5,3
  382. schr$="zwei Meter laesst die Raubkatze Dich herankommen, um":sp(schr$):LOCATE 7,3
  383. schr$="ploetzlich mit einem maechtigen Sprung auf Dich zu":sp(schr$):LOCATE 9,3
  384. schr$="stuerzen. Der Angriff geschieht so schnell und ueber-":sp(schr$):LOCATE 11,3
  385. schr$="raschen, das Du hinfaellst und fuer den Kampf ein kleines":sp(schr$):LOCATE 13,3
  386. schr$="Handicap einstecken musst.":sp(schr$):attacke=attacke-1
  387. SLEEP:SLEEP:SLEEP:ge=1:GOTO 73
  388.  
  389. 118 CLS:LOCATE 3,3
  390. schr$="Du stuerzt also los in den Dschungel, nur fort von der ":sp(schr$):LOCATE 5,3
  391. schr$="Bestie. Aber mit zwei schnellen Saetzen hat Dich der ":sp(schr$):LOCATE 7,3
  392. schr$="Sumpf-Pader wieder eingeholt und springt Dich an.":sp(schr$):LOCATE 9,3
  393. schr$="Es kommt zum Kampf.":sp(schr$)
  394. SLEEP:SLEEP:SLEEP:ge=1:GOTO 73
  395.  
  396. 184 CLS:LOCATE 3,3
  397. schr$="Du stuerzt nicht und erreichst das gegenueberliegende":sp(schr$):LOCATE 5,3
  398. schr$="Ufer. Aber Deine Stiefel haben in der Fluessigkeit gelit-":sp(schr$):LOCATE 7,3
  399. schr$="ten. Denn diese Bruehe greift ja bekanntlich Haut - und ":sp(schr$):LOCATE 9,3
  400. schr$="Leder ist tierische Haut - an und loest sie mit der Zeit":sp(schr$):LOCATE 11,3
  401. schr$="auf. Dadurch bist Du nun leicht gehaendicapt!":sp(schr$):geschick=geschick-1
  402. SLEEP:SLEEP:SLEEP:GOTO 11
  403.  
  404. 207 CLS:LOCATE 3,3
  405. schr$="Die Waffe fest umklammert, gehst Du unerschrocken auf":sp(schr$):LOCATE 5,3
  406. schr$="den Sumpf-Pader los.":sp(schr$):LOCATE 7,3
  407. schr$="Er duckt sich, boese fauchend, aber er scheint auch Deine":sp(schr$):LOCATE 9,3
  408. schr$="Entschlossenheit zu spueren und verschwindet so schnell,":sp(schr$):LOCATE 11,3
  409. schr$="wie er gekommen ist, mit einigen schnellen Spruengen im":sp(schr$):LOCATE 13,3
  410. schr$="Dickicht.":sp(schr$):punkte=punkte+8
  411. SLEEP:SLEEP:SLEEP:ge=1:GOTO 6
  412.  
  413. 250 CLS:LOCATE 3,3
  414. schr$="Du irrst lange durch den Urwald. Ist es Morgens oder Abends?":sp(schr$):LOCATE 5,3
  415. schr$="Wer weiss das schon? - Wer wird es jemals wissen. Nachdem Du":sp(schr$):LOCATE 7,3
  416. schr$="jedoch mehere Stunden ziellos durch den Urwald gejoggt bist":sp(schr$):LOCATE 9,3
  417. schr$="erreichst Du eine Lichtung":sp(schr$):LOCATE 14,3:COLOR 3
  418. schr$="Du kannst nach Sueden < F1 >":sp(schr$):LOCATE 16,3
  419. schr$="Es fuehrt auch ein Weg nach Osten < F2 >":sp(schr$):LOCATE 18,3
  420. schr$="Der dritte Weg geht nach Westen < F3 >":sp(schr$):COLOR 2
  421. WHILE 1
  422. getkey x
  423. IF x=1 THEN 2
  424. IF x=2 THEN 1
  425. IF x=3 THEN 3
  426. IF x=11 THEN GOSUB dokument:GOTO 250
  427. WEND
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435. REM ********************
  436. REM ** unterprogramme **
  437. REM ********************
  438.  
  439. SUB sp(schr$) STATIC
  440. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  441. END SUB
  442.  
  443. SUB getkey (keynumber) STATIC
  444. in$=""
  445. WHILE in$=""
  446. SLEEP
  447. in$=INKEY$
  448. WEND
  449. keynumber=ASC(in$)-128
  450. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  451. END SUB
  452.  
  453.  
  454. dokument:
  455. CLS:LOCATE 3,3 
  456. PRINT "Name: ";spieler$
  457. LOCATE 5,3:COLOR 6
  458. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  459. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  460. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  461. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  462. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  463. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  464. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  465. LOCATE 19,3:COLOR 5
  466. PRINT "Lebensenergie:";TAB(25);lebensenergie
  467. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  468. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  469. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  470. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  471. COLOR 2
  472. SLEEP:SLEEP
  473. WHILE a$=""
  474. a$=INKEY$
  475. WEND
  476. RETURN
  477.  
  478. 260 
  479. COLOR 2
  480. IF raum=1 THEN 6
  481. IF raum=2 THEN 2
  482.  
  483. schluss:
  484. CLS:LOCATE 3,3:COLOR 7
  485. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  486. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  487. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  488. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  489. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  490. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  491. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  492. WHILE 1
  493. getkey x
  494. IF x=1 THEN LOAD"TDBS",r
  495. IF x=2 THEN SYSTEM
  496. WEND
  497.  
  498. an:  
  499.  COLOR 6 
  500.  IF lebensenergie<=0 THEN schluss
  501.  IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260 
  502.  LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
  503.  COLOR 5
  504.  LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
  505. RETURN
  506.  
  507. kampf:
  508. CLS:LOCATE 3,3:COLOR 7
  509. PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
  510. WHILE 1
  511. duatt:
  512. x=INT(RND*(20+1))
  513. IF x<attacke THEN GOTO monstpa
  514. IF x>attacke THEN GOTO monstatt
  515. dupa:
  516. y=INT(RND*(20+1))
  517. IF y<parade THEN GOSUB an:GOTO duatt
  518. IF y>parade THEN lebensenergie=lebensenergie-monstertrefferpunkte:GOSUB an:GOTO duatt
  519. monstatt:
  520. x=INT(RND*(20+1))
  521. IF x<monsterattacke THEN GOSUB an:GOTO dupa
  522. IF x>monsterattacke THEN GOSUB an:GOTO duatt
  523. monstpa:
  524. y=INT(RND*(20+1))
  525. IF y<monsterparade THEN GOSUB an:GOTO monstatt
  526. IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
  527. WEND
  528.  
  529.